  use lib 'SOAP-Lite-0.710.08\lib'; 
  use lib 'WordPress-API-1.09\lib';
  use lib 'WordPress-XMLRPC-1.18\lib'; 
  use WordPress::API;

   my $w = WordPress::API->new({
      username => 'herberthb@qq.com',
      password => '789456',
      proxy => 'http://dhgx.yo2.cn/xmlrpc.php',
   });
my $r = $w->getRecentPosts(100);

if(! open NEWS,">new.html"){
	die "openfaile($!)";
}

for($i=0;$i<100;$i++)
{
	print NEWS $r->[$i]->{title},"\n";
}
